home *** CD-ROM | disk | FTP | other *** search
/ Mac100% 1998 November / MAC100-1998-11.ISO.7z / MAC100-1998-11.ISO / ｵﾝﾗｲﾝｿﾌﾄ定点観測 / ﾕｰﾃｨﾘﾃｨ / Mops 3.2.sea / Mops 3.2 / Mops source / Module source / AlertQmod.txt next >
Text File  |  1996-02-02  |  373b  |  19 lines
  1. ¥ More Mac-like alternative to abort"
  2. ¥  May 90  Mops version.  Resource based.
  3.  
  4. need dialog
  5. need alert
  6.  
  7.     3    alert    ALRT
  8.  
  9. cfas{ null null null }  900  init: alrt
  10.  
  11. variable NUMSTR  10 allot
  12.  
  13. : (AL) { RC type addr len -- }
  14.  
  15.     numStr 14 blanks
  16.     RC dup abs 0 <# #s sign #>  numStr  swap 14 min cmove
  17.     addr len  numStr 14  0 0  0 0  paramText
  18.     type setType: alrt  show: alrt  ;
  19.